Блог

 # my Rmarkdown files   title: "shopping_p78t5"  author: '197103027'  date: "2021/11/12"  output:   html_document:   fig_width: 15   fig_height: 8   word_document: default   pdf_document: default  editor_options:   chunk_output_type: console   # (a)  ```{r echo=TRUE,include=TRUE,highlight=TRUE} library(arules) library(arulesViz) library(dplyr) ```  ```{r echo=TRUE,include=TRUE,highlight=TRUE} shopdatalt;-read.csv("C:/Users/86176/Desktop/study/Data Mining/all data/data-exe/shopping.csv",colClasses = c(rep("numeric",10),rep("character",5))) shopdatalt;-shopdata%gt;%mutate(across(where(is.integer),factor))%gt;%mutate(across(where(is.character),factor))%gt;%as_tibble() ```  # (b)  ```{r echo=TRUE,include=TRUE,highlight=TRUE} ruleslt;-apriori(shopdata,parameter = list(supp=0.8,conf=0.8,target="rules")) summary(rules) rules_prunedlt;-rules[!is.redundant(rules)] options(digits = 4) inspect(rules_pruned) plot(rules_pruned,method = "graph") ```  # (c)  ```{r echo=TRUE,include=TRUE,highlight=TRUE,results='hold'} rules_rhs_ready_madelt;-apriori(shopdata,parameter = list(supp=0.1,conf=0.8),  appearance = list(rhs=c("Ready_made=1")),  control = list(verbose=F)) inspect(head(rules_rhs_ready_made[!is.redundant(rules_rhs_ready_made)],by="lift")) rules_rhs_frozen_foodslt;-apriori(shopdata,parameter = list(supp=0.1,conf=0.8),  appearance = list(rhs=c("Frozen_foods=1")),  control = list(verbose=F)) inspect(head(rules_rhs_frozen_foods[!is.redundant(rules_rhs_frozen_foods)],by="lift")) rules_rhs_Alcohollt;-apriori(shopdata,parameter = list(supp=0.1,conf=0.8),  appearance = list(rhs=c("Alcohol=1")),  control = list(verbose=F)) inspect(head(rules_rhs_Alcohol[!is.redundant(rules_rhs_Alcohol)],by="lift")) rules_rhs_Fresh_Vegetableslt;-apriori(shopdata,parameter = list(supp=0.1,conf=0.8),  appearance = list(rhs=c("Fresh_Vegetables=1")),  control = list(verbose=F)) inspect(head(rules_rhs_Fresh_Vegetables[!is.redundant(rules_rhs_Fresh_Vegetables)],by="lift")) rules_rhs_Milklt;-apriori(shopdata,parameter = list(supp=0.1,conf=0.8),  appearance = list(rhs=c("Milk=1")),  control = list(verbose=F)) inspect(head(rules_rhs_Milk[!is.redundant(rules_rhs_Milk)],by="lift")) rules_rhs_Bakery_goodslt;-apriori(shopdata,parameter = list(supp=0.1,conf=0.8),  appearance = list(rhs=c("Bakery_goods=1")),  control = list(verbose=F)) inspect(head(rules_rhs_Bakery_goods[!is.redundant(rules_rhs_Bakery_goods)],by="lift")) rules_rhs_Fresh_meatlt;-apriori(shopdata,parameter = list(supp=0.1,conf=0.8),  appearance = list(rhs=c("Fresh_meat=1")),  control = list(verbose=F)) inspect(head(rules_rhs_Fresh_meat[!is.redundant(rules_rhs_Fresh_meat)],by="lift")) rules_rhs_Toiletrieslt;-apriori(shopdata,parameter = list(supp=0.1,conf=0.8),  appearance = list(rhs=c("Toiletries=1")),  control = list(verbose=F)) inspect(head(rules_rhs_Toiletries[!is.redundant(rules_rhs_Toiletries)],by="lift")) rules_rhs_Snackslt;-apriori(shopdata,parameter = list(supp=0.1,conf=0.8),  appearance = list(rhs=c("Snacks=1")),  control = list(verbose=F)) inspect(head(rules_rhs_Snacks[!is.redundant(rules_rhs_Snacks)],by="lift")) rules_rhs_Tinned_goodslt;-apriori(shopdata,parameter = list(supp=0.1,conf=0.8),  appearance = list(rhs=c("Tinned_goods=1")),  control = list(verbose=F)) inspect(head(rules_rhs_Tinned_goods[!is.redundant(rules_rhs_Tinned_goods)],by="lift")) ```  

Когда я нажал связать в HTML, он сказал: «Ошибка: Синтаксический анализатор не может содержать многобайтовые символы в строке 24, остановить выполнение», и больше ничего не показал.

Кто может сказать мне, что происходит.