安装.包( " 前缀 " )
# install.packages(“远程”)
遥控器 :: 安装github( " fleverest/前缀 " )
长的 <- 数据帧 ( 身份证件 = 代表( 1 : 三 , 每个 = 三 ), 项目名称 = 字母 [代表( 1 : 三 , 三 )], 排名 = c(c)( 1 , 2 , 三 , 三 , 2 , 1 , 2 , 1 , 三 ) ) 首选项 <- 首选项( 长的 , 格式 = " 长的 " , 身份证件 = " 身份证件 " , 项目 = " 项目名称 " , 等级 = " 排名 " ) 打印( 首选项 )
##[1][A>B>C][C>B>A][B>A>C]
排名 <- 矩阵 ( c(c)( 1 , 2 , 三 , 三 , 2 , 1 , 2 , 1 , 三 ), nrow公司 = 三 , 旁观者 = 真的 ) 列名( 排名 ) <- 字母 [ 1 : 三 ] 首选项 <- 首选项( 排名 , 格式 = " 排名 " ) 打印( 首选项 )
##[1][A>B>C][C>B>A][B>A>C]
网飞 <- 读取回流( " 网飞/00004-00000138.soc " , 来自reflib = 真的 ) 头部( 网飞 )
##首选项频率 ##1[Beverly Hills警察>坏女孩>M…]68 ##2[Mean Girls>Beverly Hills警察>M…]53 ##3[Beverly Hills警察>坏女孩>T…]49 ##4[Mean Girls>Beverly Hills警察>T…]44 ##5[Beverly Hills警察>任务:Impos…]39 ##6[木乃伊归来>贝弗利山庄…]37
打印( 网飞 $ 偏好 [ 1 ], 宽度 = 100 )
##[1][Beverly Hills警察>刻薄女孩>任务:不可能II>木乃伊归来]
写_预库( 首选项 )
##write_preflib(prefs)中的警告:缺少“title”:preflib格式需要指定标题。 使用“NA”。 ##write_preflib(prefs)中的警告:缺少“publication_date”,使用今天的日期(2023-06-14)。 ##write_preflib(prefs)中的警告:缺少“modification_date”,使用今天的日期(2023-06-14)。 ##write_preflib(prefs)中的警告:缺少`modification_type`:preflib格式要求指定此项。 使用 ##“不适用”。 ###文件名:不适用 ###标题:不适用 ###说明: ###数据类型:soc ###修改类型:不适用 ###与以下内容相关: ###相关文件: ###出版日期:2023-06-14 ###修改日期:2023-06-14 ###备选方案数量:3 ###票数:3 ###唯一订单数量:3 ###替代名称1:A ###替代名称2:B ###替代名称3:C ## 1: 1,2,3 ## 1: 3,2,1 ## 1: 2,1,3