R语言——类与对象

已知2024年4月23日是星期五,编写一个函数day.in.a.week (x, y,z),参数x和y和z分别代表年月日,判断这一天是否存在(例如,2018年没有2月29日,也没有11月31日),如果不存在,返回日期不存在;否则计算并返回当天是星期几。星期几判断方法参照:Sys.Date() weekdays(Sys.Date())

编写程序实现冒泡排序,对向量c(4,3,2,5,6,1)进行排序。

练习使用list列表构建一个学生对象(包含学生姓名、年龄、绩点),并运用class将对象的类设置为student。

使用构造函数创建S3类对象(包含学生姓名、年龄、绩点),类名为student,同时编写一个类的专属方法,打印出学生绩点。如:Hi xiaoming,your GPA is 4

练习使用setClass定义S4学生类student_one,并创建一个学生对象(包含学生姓名、年龄、绩点),同时使用validity进行绩点合理性判断。在控制台打印出学生信息

  1. 已知2024年4月23日是星期五,编写一个函数day.in.a.week (x, y,z),参数x和y和z分别代表年月日,判断这一天是否存在(例如,2018年没有2月29日,也没有11月31日),如果不存在,返回日期不存在;否则计算并返回当天是星期几。星期几判断方法参照:Sys.Date() weekdays(Sys.Date())

代码:

R 复制代码
day_in_a_week <- function(x, y, z) {

  # 判断日期是否存在

  if (!isTRUE(all.equal(as.Date(paste(x, y, z, sep="-"), format="%Y-%m-%d"), as.Date(paste(x, y, z, sep="-"))))) {

    return("日期不存在")

  } else {

    # 计算星期几

    weekday <- weekdays(as.Date(paste(x, y, z, sep="-")))

    return(paste("这一天是星期", weekday))

  }

}

# 测试函数

day_in_a_week(2024, 4, 23)

截图:

  1. 编写程序实现冒泡排序,对向量c(4,3,2,5,6,1)进行排序。

代码:

R 复制代码
bubble_sort <- function(vec) {

  n <- length(vec)

  for (i in 1:(n - 1)) {

    for (j in 1:(n - i)) {

      if (vec[j] > vec[j + 1]) {

        temp <- vec[j]

        vec[j] <- vec[j + 1]

        vec[j + 1] <- temp

      }

    }

  }

  return(vec)

}

# 测试冒泡排序算法

vec <- c(4, 3, 2, 5, 6, 1)

sorted_vec <- bubble_sort(vec)

print(sorted_vec)

截图:

  1. 练习使用list列表构建一个学生对象(包含学生姓名、年龄、绩点),并运用class将对象的类设置为student。

代码:

R 复制代码
student <- list(

  name = "张三",

  age = 20,

  gpa = 3.5

)

class(student) <- "student"



# 测试学生对象

print(student)

截图:

  1. 使用构造函数创建S3类对象(包含学生姓名、年龄、绩点),类名为student,同时编写一个类的专属方法,打印出学生绩点。如:Hi xiaoming,your GPA is 4

代码:

R 复制代码
student <- function(name, age, gpa) {

  obj <- list(

    name = name,

    age = age,

    gpa = gpa

  )

  class(obj) <- "student"

  return(obj)

}



print_gpa <- function(obj) {

  cat("Hi", obj$name, ", your GPA is", obj$gpa, "\n")

}

# 创建学生对象

xiaoming <- student("小明", 18, 4.0)

print_gpa(xiaoming)

截图:

  1. 练习使用setClass定义S4学生类student_one,并创建一个学生对象(包含学生姓名、年龄、绩点),同时使用validity进行绩点合理性判断。在控制台打印出学生信息

代码:

R 复制代码
setClass("student_one",

         slots = list(

           name = "character",

           age = "numeric",

           gpa = "numeric"

         ),

         validity = function(object) {

           if (object@gpa < 0 | object@gpa > 4.0) {

             return("绩点不合理")

           }

         }

)



# 创建学生对象

xiaohong <- new("student_one",

                name = "小红",

                age = 20,

                gpa = 3.8)

# 打印学生信息

print(xiaohong)

截图:

相关推荐
苦夏木禾14 分钟前
js请求避免缓存的三种方式
开发语言·javascript·缓存
超级土豆粉22 分钟前
Turndown.js: 优雅地将 HTML 转换为 Markdown
开发语言·javascript·html
wei_shuo1 小时前
飞算 JavaAI 开发助手:深度学习驱动下的 Java 全链路智能开发新范式
java·开发语言·飞算javaai
熊猫钓鱼>_>1 小时前
用Python解锁图像处理之力:从基础到智能应用的深度探索
开发语言·图像处理·python
GO兔2 小时前
开篇:GORM入门——Go语言的ORM王者
开发语言·后端·golang·go
好开心啊没烦恼2 小时前
Python 数据分析:numpy,抽提,整数数组索引与基本索引扩展(元组传参)。听故事学知识点怎么这么容易?
开发语言·人工智能·python·数据挖掘·数据分析·numpy·pandas
future14123 小时前
C#学习日记
开发语言·学习·c#
king_harry3 小时前
Java程序-OceanBase Connector/J 示例
开发语言
傻啦嘿哟4 小时前
Python 办公实战:用 python-docx 自动生成 Word 文档
开发语言·c#
翻滚吧键盘4 小时前
js代码09
开发语言·javascript·ecmascript