Кластерная модель учебных ситуаций

Данные для модели

Учебные проекты:

• "ВолшебнаяКнига", "ОбщийОстров", "ТелеОлимпиада", "Школа2000", "Геокешинг", "Медиатека", "Энциклопедия", "КоллГипертекст", "ШкольнаяСказка", "ВикиШкола", "МаленькийПринц", "ScratchСказка", "ПрактикиБудущего", "Выпускник2020", "ЗаконОбразование", "ЗапросУчителя"

Левый полюс:

• "Управление", "ОтдельныеСтраницы", "Деятельность", "Простота", "Неизменность", "Единичность", "Индивидуальность", "Незначительность", "Закрытость", "НоваяИстория", "Виртуальность", "Тексты"

Правый полюс

• "Самоорганизация", "ОбщаяИстория", "Обсуждение", "Сложность", "Эволюция", "Связанность", "Совместность", "Ценность", "Открытость", "ИсходныйТекст", "Мобильность", "Данные"

Перенесение данных среду языка R

args <- list( name=c("ВолшебнаяКнига", "ОбщийОстров", "ТелеОлимпиада", "Школа2000", "Геокешинг", "Медиатека", "Энциклопедия", "КоллГипертекст", 
"ШкольнаяСказка", "ВикиШкола", "МаленькийПринц", "ScratchСказка", "ПрактикиБудущего", "Выпускник2020", "ЗаконОбразование", "ЗапросУчителя"),

 l.name=c("Управление", "ОтдельныеСтраницы", "Деятельность", "Простота", "Неизменность", "Единичность", "Индивидуальность", "Незначительность", "Закрытость", "НоваяИстория", "Виртуальность", "Тексты"),

 r.name=c("Самоорганизация", "ОбщаяИстория", "Обсуждение", "Сложность", "Эволюция", "Связанность", "Совместность", "Ценность", "Открытость", "ИсходныйТекст", "Мобильность", "Данные"),

scores=c(	3,2,1,6,4,5,2,4,1,7,3,8,9,5,2,7,

7,8,3,6,7,9,2,8,2,9,8,6,3,4,1,2, 1,5,1,7,2,3,1,3,1,6,2,8,8,8,5,9, 1,4,1,4,6,8,3,8,2,6,2,1,7,7,2,8, 1,6,1,7,2,6,1,8,2,4,5,6,6,6,7,7, 6,1,1,6,3,7,2,9,6,8,5,2,6,2,1,6, 3,1,1,5,4,8,2,9,6,8,8,9,8,7,3,8, 1,5,7,5,6,6,2,5,2,5,1,1,8,7,7,8, 1,4,4,5,5,8,2,6,2,9,6,6,7,9,9,6, 1,1,1,6,1,2,1,7,1,8,6,7,2,1,9,1, 1,7,9,8,9,8,1,8,2,8,1,1,1,1,1,4, 1,3,9,6,8,7,1,4,1,7,1,1,1,1,4,1 ) )

newGrid <- makeRepgrid(args) ;; Создание решетки

newGrid <- setScale(newGrid, 1, 9) ;; Шкалирование

bertinCluster(newGrid, type="rectangle") ;; Построение кластерной модели