Description Usage Arguments Details Value Examples
Die Funktion Kano()
transformiert Kano-Fragebogen zur Kano-Kodierung
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | Kano(
...,
type = 5,
umcodieren = FALSE,
rm_Q = 10000,
rm_I = 10000,
methode = 1,
vars_func = NULL,
vars_dysfunc = NULL
)
Kano_Auswertung(
x,
caption = "",
note = "",
formula = x$formula,
data = x$molten[-1],
digits = options()$stp4$apa.style$prozent$digits[1],
include.n = TRUE,
include.percent = TRUE,
include.total = TRUE,
include.test = TRUE,
include.fong = TRUE,
rnd_output = TRUE
)
|
... |
x, data, by, subset, na.action |
type |
type Fragetype entweder vollstaendig (5) oder gekuerzt (3) |
umcodieren |
umcodieren logical False |
rm_Q |
Remove Q Kategorien Q entfernen Anzahl an erlaubten Qs |
rm_I |
Remove I Kategorien I entfernen Anzahl an erlaubten Is |
methode |
wie sind die Items geordnet default = 1 (func dfunk func dfunc func) |
vars_func, vars_dysfunc |
weche Variablen sind die zwei Dimensionen |
caption, note |
Ueberschrift |
note |
|
formula |
intern daten aus Kano-Objekt |
include.n, include.percent |
Anzahl, Prozent |
include.total |
Anzahl Total |
include.test, include.fong |
Fong und Chie-Test |
rnd_output |
Intern fuer Plot bei FALSE ausgabe als Zahl |
http://www.eric-klopp.de/texte/angewandte-psychologie/18-die-kano-methode https://de.wikipedia.org/wiki/Kano-Modell
Basis-Merkmale (Mustbe) werden vom Kunden Vorausgesetzt schaffen Unzufriedenheit wenn sie nicht vorhanden sind.
Leistungs-Merkmale (One-dimensional) werden vom Kunden verlangt
Begeisterungs-Merkmale (Attractive) Kunde rechnet nicht damit hebt das Produkt vom Konkurrenten ab.
Unerhebliche-Merkmale (Indifferent) werden vom Kunden ignoriert.
Ablehnende-Merkmale (R) werden vom Kunden abgelehnt. Fuehren bei Vorhandensein zu Unzufriedenheit, bei Fehlen jedoch nicht zu Zufriedenheit.
Func/Dyfunc | like (1) | must-be (2) | neutral (3) | live with (4) | dislike (5) |
like (1) | O | A | A | A | O |
must-be (2) | R | I | I | I | M |
neutral (3) | R | I | I | I | M |
live with (4) | R | I | I | I | M |
dislike (5) | R | R | R | R | Q |
Kodierung
Das würde mich sehr freuen (1) Das setze ich voraus (2) Das ist mir egal (3) Das könnte ich in Kauf nehmen (4) Das würde mich sehr stören (5)
M O A I R Q Heufigkeit
max Category
M>O>A>I max Category mit Hierarchie M Wichtiger als O usw. also wen der Unterschied zwischen den zwei am hoechsten gelisteten Attributen zwei Kategorien gleich ist, 5
Total Strength als zweite Masszahl gibt an wie hoch der Anteil an bedeutenden Produktmerkmalen ist.
Category Strength ist eine Masszahl die die angibt ob eine Anforderung nur in eine Kategorie gehoert
CS plus Index Positiv CS.plus= (A+O)/(A+O+M+I)
CS minus Index Negativ CS.minus= (O+M)/(A+O+M+I)
Chi-Test ist eigentlich Unsinn, Testet ob die Verteilung von M, A, O und I gleich ist. Wird aber in wissenschaftlichen Arebitengerne angegeben.
Fong-Test Vergleich der zwei Haeufigsten-Kategorien gegenueber der Gesamtzahl Ergebnis ist entweder ein signifikante oder ein nicht signifikante Verteilung. Ich verwende zur Berechnung die Kategorien A,O,M,I und R. Q verwende ich nur für die Gesamtsumme
Liste mit: data: data mit der Kano-Kodierung. molten: Daten-Lang scors: Scors sind eine Alternative Codierung zum Zweck der Transformierung zu einer metrischen Skala. formula, removed=Errorrs, N, attributes, answers
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 |
kano_labels <- c( "like",
"must be",
"neutral",
"live with",
"dislike")
DF<-stp25aggregate::GetData(
"sex Edu f1 d1 f2 d2 f3 d3 f4 d4 f5 d5 f6 d6 f7 d7 f8 d8 f9 d9 f10 d10
w med 1 1 1 2 1 3 1 5 1 5 5 1 3 3 5 2 5 1 5 2
w med 1 2 2 5 2 3 1 5 1 5 2 5 3 3 2 5 2 5 5 2
m med 1 3 3 5 1 5 3 4 1 5 5 1 3 3 5 2 5 1 5 2
m med 1 4 4 2 1 5 4 4 1 5 5 1 3 3 5 2 5 1 5 2
w med 1 5 5 5 5 3 1 5 1 5 5 1 3 3 5 2 5 1 5 2
w med NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
m med 2 1 1 5 2 5 1 5 1 5 2 5 3 3 1 5 2 5 5 2
w med 2 2 2 5 1 3 1 5 1 5 3 3 3 3 1 4 1 3 5 2
m med 2 3 2 5 2 3 1 3 1 5 1 3 3 3 2 4 3 3 5 2
m med 2 4 1 5 1 5 1 5 1 5 1 4 3 3 2 5 1 3 5 2
w med 2 5 2 5 1 4 1 5 1 5 1 4 3 3 2 5 1 4 5 2
m med NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
w med 3 1 2 5 3 3 1 5 2 5 1 5 3 3 3 3 3 3 5 2
m med 3 2 1 5 1 5 2 5 2 NA 1 5 3 3 2 5 1 5 5 2
w med 3 3 2 5 1 3 1 5 1 5 1 3 3 3 2 5 1 3 5 2
w low 3 4 2 5 2 5 2 5 1 5 1 4 3 3 2 5 1 3 5 2
w low 3 5 2 5 1 5 1 5 2 5 1 4 3 3 2 5 1 4 5 2
w low NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
m low 4 1 2 5 1 5 2 5 2 5 1 4 2 3 2 5 1 3 5 2
w low 4 2 2 5 2 5 2 5 2 5 1 3 3 3 2 5 1 3 5 2
w low 4 3 2 5 1 5 2 5 2 5 1 5 1 3 2 5 1 3 5 2
m low 4 4 2 5 1 5 2 5 2 5 1 3 3 3 1 3 1 3 5 2
w low 4 5 2 5 3 3 2 5 2 5 1 4 1 3 2 5 1 4 5 2
w low NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
m hig 5 1 1 5 1 5 2 4 1 5 1 3 3 5 2 4 1 3 5 2
w hig 5 2 1 5 1 3 1 5 1 5 1 3 1 5 1 5 3 3 5 2
w hig 5 3 2 5 3 3 1 4 2 4 1 3 3 5 3 3 5 1 5 2
w hig 5 4 2 5 1 4 2 5 1 5 1 3 3 5 2 5 4 1 5 2
w hig 5 5 2 5 2 4 2 4 2 5 1 4 1 5 1 5 1 4 5 2
m hig NA NA 2 5 1 5 1 3 1 4 1 3 1 5 1 3 1 3 5 2
m hig NA NA 2 1 1 5 1 4 3 3 5 2 3 5 NA NA 1 3 5 2")
DF<- stp25aggregate::upData2(DF, labels=c(f1="Fahreigenschaften"
,f2="Sicherheit"
,f3="Beschleunigung"
,f4="Verbrauch"
,f5="Lebensdauer"
,f6="Sonderausstattung"
,f7="Schiebedach"
,f8="Rostschutz"
,f9="Design"
, f10= "Rostflecken"
))
kano_res1 <- Kano( ~ . , DF[-c(1,2)])
DF[-c(1,2)] <- stp25aggregate::dapply2(DF[-c(1,2)],
function(x) factor( x, 1:5, kano_labels))
kano_res2 <- Kano( ~ . , DF[-c(1,2)])
kano_res1$scors
kano_res2$scors
#stp25stat:::Kano_Auswertung(kano_res1, rnd_output=FALSE)
# kano_plot(kano_res1)
# library(lattice)
# x<-data.frame (xtabs(~ value+variable, kano_res1$molten ))
# barchart(Freq ~value|variable, x, origin=0)
APA2(kano_res1, caption = "Einzeln")
kano_res <- Kano( .~ sex, DF[-2])
APA2(kano_res, caption = "Gruppe")
APA2(kano_res, caption = "Gruppe", include.percent=FALSE)
# kano_plot(kano_res,
# legend.position = list(x = .75, y = 1),
# #legend.title= "HAllo",
# cex.legend=1)
kano_res <- Kano( .~ sex + Edu, DF )
#stp25stat:::Kano_Auswertung( kano_res, rnd_output=FALSE)
# Kontrolle der Logik
#kano_res1 <- Kano( ~ . , DF[-c(1,2)], na.action = na.pass)
#dat<- na.omit(cbind(DF[c("f1", "d1")], kano_res1$data[2]))
#tidyr::spread(dat , d1, Fahreigenschaften)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.