摘要: 1、第一列转化为行名 > x <- letters[1:5] > y <- 1:5 > z <- LETTERS[1:5] > dat <- data.frame(x, y, z) > dat ## 测试数据框 x y z 1 a 1 A 2 b 2 B 3 c 3 C 4 d 4 D 5 e 5 阅读全文
posted @ 2022-05-08 22:57 小鲨鱼2018 阅读(17436) 评论(0) 推荐(0) 编辑
摘要: 1、测试文件 2、加载readxl包、读取数据 > library(readxl) ## 加载readxl包 > dir() [1] "test.xlsx" > sheet1 <- read_xlsx("test.xlsx", sheet = 1, col_names = F) ## 利用read_ 阅读全文
posted @ 2022-05-08 22:27 小鲨鱼2018 阅读(1669) 评论(0) 推荐(0) 编辑
摘要: 1、 > dir() [1] "outcome.map" "outcome.ped" > ped <- read.table("outcome.ped") ## 读取两个文件 > map <- read.table("outcome.map") > object.size(ped) ## 统计变量占 阅读全文
posted @ 2022-05-08 22:01 小鲨鱼2018 阅读(477) 评论(0) 推荐(0) 编辑
摘要: 1、min-max数据标准化 > dat <- c(34, 24, 78, 43, 98, 87) ## 测试向量 > dat [1] 34 24 78 43 98 87 > min(dat) ## 最小值 [1] 24 > max(dat) ## 最大值 [1] 98 > (dat - min(d 阅读全文
posted @ 2022-05-08 16:59 小鲨鱼2018 阅读(1891) 评论(0) 推荐(0) 编辑
摘要: 中心化,所有项减去平均数 1、 > dat <- c(3, 6, 4, 8) > dat [1] 3 6 4 8 > mean(dat) [1] 5.2 > dat - mean(dat) ## 所有项减去平均值, 中心化 [1] -2.25 0.75 -1.25 2.75 > scale(dat, 阅读全文
posted @ 2022-05-08 13:05 小鲨鱼2018 阅读(665) 评论(0) 推荐(0) 编辑
摘要: 一、中心化 数据的中心化: 所有数据减去平均数,该组数据平均值为0。 > dat <- c(3, 6, 4, 8) ## 测试数据 > dat [1] 3 6 4 8 > mean(dat) ## 平均值 [1] 5.2 > dat - mean(dat) ## 中心化, 所有项减去平均值 [1] 阅读全文
posted @ 2022-05-08 12:18 小鲨鱼2018 阅读(387) 评论(0) 推荐(0) 编辑
摘要: 方法1: > (.packages()) ## 查看已安装的包 [1] "stats" "graphics" "grDevices" "utils" "datasets" "methods" [7] "base" > candidate_pak <- c("qqman", "data.table", 阅读全文
posted @ 2022-05-08 11:02 小鲨鱼2018 阅读(301) 评论(0) 推荐(0) 编辑
摘要: 1、 > library(qqman) ## 未安装的包 Error in library(qqman) : 不存在叫‘qqman’这个名字的程辑包 > library(data.table) Error in library(data.table) : 不存在叫‘data.table’这个名字的程 阅读全文
posted @ 2022-05-08 10:38 小鲨鱼2018 阅读(870) 评论(0) 推荐(0) 编辑