上一页 1 ··· 326 327 328 329 330 331 332 333 334 ··· 403 下一页
摘要: 数据集的融合是将它重构为这样一种形式,每个测量变量独占一行,行中带有要唯一确定这个测量所需的标识符变量。 1、测试数据 ID <- c(1,1,2,2) Time <- c(1,2,1,2) X1 <- c(5,3,6,2) X2 <- c(6,5,1,4) mydata <- data.frame 阅读全文
posted @ 2021-04-25 19:04 小鲨鱼2018 阅读(1047) 评论(0) 推荐(0)
摘要: R语言中aggregate函数 1、测试数据1 name <- LETTERS[1:8] gender <- c("M","F","F","M","F","M","M","F") age <- c(30,20,40,40,30,20,30,20) height <- c(100,200,300,20 阅读全文
posted @ 2021-04-25 17:37 小鲨鱼2018 阅读(875) 评论(0) 推荐(0)
摘要: R语言中用户自编函数 1、测试1 mystat <- function(x, parametric = TRUE, print = FALSE){ if(parametric){ center = mean(x); spread = sd(x) } else { center = median(x) 阅读全文
posted @ 2021-04-25 11:06 小鲨鱼2018 阅读(336) 评论(0) 推荐(0)
摘要: R语言中cat函数。 1、测试1 cat("aa","bb") cat("aa","bb",sep = "_") 2、测试2 a = 100 b = 300 c = "abcd" cat(a,b,c) cat(a,b,c,sep = "_") 3、测试3 a = c("aaa", "bbb", "c 阅读全文
posted @ 2021-04-25 10:33 小鲨鱼2018 阅读(7596) 评论(0) 推荐(0)
摘要: R语言中的mad函数,绝对中位差 绝对中位差实际求法是用原数据减去中位数后得到的新数据的绝对值的中位数。但绝对中位差常用来估计标准差,估计标准差=1.4826*绝对中位差。R语言中返回的是估计的标准差。 1、测试 a <- c(4, 2, 6, 3, 8) a mad(a) 验证: median(a 阅读全文
posted @ 2021-04-25 09:58 小鲨鱼2018 阅读(4194) 评论(0) 推荐(0)
摘要: R语言中switch语句。 1、测试1 switch (1, "aaa","bbb","ccc","ddd","eee" ) switch (3, "aaa","bbb","ccc","ddd","eee" ) switch (3, min(1:3), max(1:3), sum(1:3) ) 阅读全文
posted @ 2021-04-25 09:01 小鲨鱼2018 阅读(449) 评论(0) 推荐(0)
摘要: R语言中while循环 1、测试1 a <- c(3,8,2,7,4,9) i = 1 while (i <= length(a)) { print(a[i]) i = i + 1 } 2、测试2 f <- NA f[1] <- f[2] <- 1 i <- 3 while (i <= 10) { 阅读全文
posted @ 2021-04-24 23:23 小鲨鱼2018 阅读(579) 评论(0) 推荐(0)
摘要: 1、for循环 sum = 0 for (i in 1:100) { sum = sum + i } print(sum) 1-100内偶数的和 sum = 0 for (i in 1:100) { if (i %% 2 == 0) { sum = sum + i } } print(sum) 扩展 阅读全文
posted @ 2021-04-24 22:51 小鲨鱼2018 阅读(10121) 评论(0) 推荐(0)
摘要: 1、测试1 num = 8 if (num %% 2 == 0) { print("even!") } 2、测试2 num = 7 if (num %% 2 == 0) { print("even!") } 3、测试3 num = 7 if (num %% 2 == 0) { print("even 阅读全文
posted @ 2021-04-24 22:18 小鲨鱼2018 阅读(4161) 评论(0) 推荐(0)
摘要: R语言中利用supply函数提取列表中元素。 1、测试1 a <- c("3_k","4_f","2_t","8_s") a b <- strsplit(a, "_") b class(b) c <- sapply(b, "[",1) c d <- sapply(b, "[",2) d 阅读全文
posted @ 2021-04-24 20:23 小鲨鱼2018 阅读(868) 评论(0) 推荐(0)
上一页 1 ··· 326 327 328 329 330 331 332 333 334 ··· 403 下一页