Hello to everyone. I start to works with R studio 3 months ago. My teacher gave me same code but it didn't work. I tried it a lot of time but I can solve the problems with this code. Help me please.

```
rm(list=ls())
install.packages("superpc")
library(superpc)
library(dplyr)
set.seed(1111111) # 111111 (thr: change) gets crossing KM curve (worse result) < 1111111 (thr:0.5) makes no error, and the seed number affects the result a lot !!
# read my data
data_dir <- "D:/Documents/data"
filename <- "data.csv"
x_total <- read.csv(file.path(data_dir, filename), sep = ",", header = T)
dim(x_total)
x_total <- Filter(function(x) length(unique(x))>1, x_total)
x_total <- as.matrix(x_total)
dimnames(x_total) <- NULL # MUST remove column names for this package
x <- x_total[,4:ncol(x_total)]
# x <- scale(x) # MUST remove scale(x) not to make error !!!
x <- t(x) # MUST be pxn matrix, not nxp !!!
dim(x) # (7546, 50)
```