* Encoding: UTF-8.
                   
                    DataSet1 Non-aggregated
                    DataSet2 Aggregated
                    DataSet3 Test subject sample
                    

Test Subject Sample

DATASET ACTIVATE DataSet3.
DESCRIPTIVES VARIABLES=age gender education profession income environment1 environment2 handedness
  /STATISTICS=MEAN STDDEV MIN MAX.

FREQUENCIES VARIABLES=generation
  /ORDER=ANALYSIS.

5.1.	Validation of Survey Structure
    
DATASET ACTIVATE DataSet1.
FACTOR
  /VARIABLES ZHAPTIC_fineness ZHAPTIC_roughness ZHAPTIC_adhesion ZHAPTIC_hardness 
    ZHAPTIC_elasticity ZHAPTIC_warmness ZHAPTIC_dryness ZHAPTIC_valence ZHAPTIC_arousal 
    ZHAPTIC_attraction ZHAPTIC_value ZHAPTIC_quality ZHAPTIC_durability ZHAPTIC_cleanability
  /MISSING LISTWISE 
  /ANALYSIS ZHAPTIC_fineness ZHAPTIC_roughness ZHAPTIC_adhesion ZHAPTIC_hardness ZHAPTIC_elasticity 
    ZHAPTIC_warmness ZHAPTIC_dryness ZHAPTIC_valence ZHAPTIC_arousal ZHAPTIC_attraction ZHAPTIC_value 
    ZHAPTIC_quality ZHAPTIC_durability ZHAPTIC_cleanability
  /PRINT INITIAL EXTRACTION ROTATION
  /FORMAT BLANK(.3)
  /CRITERIA MINEIGEN(1) ITERATE(25)
  /EXTRACTION PC
  /CRITERIA ITERATE(25)
  /ROTATION VARIMAX
  /METHOD=CORRELATION.

FACTOR
  /VARIABLES ZHAPTIC_fineness ZHAPTIC_roughness ZHAPTIC_adhesion ZHAPTIC_hardness 
    ZHAPTIC_elasticity ZHAPTIC_warmness ZHAPTIC_dryness ZHAPTIC_valence ZHAPTIC_arousal 
    ZHAPTIC_attraction ZHAPTIC_value ZHAPTIC_quality ZHAPTIC_durability ZHAPTIC_cleanability
  /MISSING LISTWISE 
  /ANALYSIS ZHAPTIC_fineness ZHAPTIC_roughness ZHAPTIC_adhesion ZHAPTIC_hardness ZHAPTIC_elasticity 
    ZHAPTIC_warmness ZHAPTIC_dryness ZHAPTIC_valence ZHAPTIC_arousal ZHAPTIC_attraction ZHAPTIC_value 
    ZHAPTIC_quality ZHAPTIC_durability ZHAPTIC_cleanability
  /PRINT INITIAL EXTRACTION ROTATION
  /FORMAT BLANK(.3)
  /CRITERIA FACTORS(4) ITERATE(25)
  /EXTRACTION PC
  /CRITERIA ITERATE(25)
  /ROTATION VARIMAX
  /METHOD=CORRELATION.


5.2.	Polymer Perception 

ONEWAY PP_C AP_C PQ_C PD_C BY material_2
  /ES=OVERALL
  /STATISTICS DESCRIPTIVES HOMOGENEITY WELCH 
  /MISSING ANALYSIS
  /CRITERIA=CILEVEL(0.95).

ONEWAY PP_C AP_C PQ_C PD_C BY surface
  /ES=OVERALL
  /STATISTICS DESCRIPTIVES HOMOGENEITY WELCH 
  /MISSING ANALYSIS
  /CRITERIA=CILEVEL(0.95).

ONEWAY PP_C AP_C PQ_C PD_C BY polymer_2
  /ES=OVERALL
  /STATISTICS DESCRIPTIVES HOMOGENEITY WELCH 
  /MISSING ANALYSIS
  /CRITERIA=CILEVEL(0.95).

ONEWAY ZHAPTIC_fineness ZHAPTIC_roughness ZHAPTIC_adhesion ZHAPTIC_hardness ZHAPTIC_elasticity 
    ZHAPTIC_warmness ZHAPTIC_dryness ZHAPTIC_valence ZHAPTIC_arousal ZHAPTIC_attraction ZHAPTIC_value 
    ZHAPTIC_quality ZHAPTIC_durability ZHAPTIC_cleanability BY material_2
  /ES=OVERALL
  /STATISTICS DESCRIPTIVES HOMOGENEITY WELCH 
  /MISSING ANALYSIS
  /CRITERIA=CILEVEL(0.95).

ONEWAY ZHAPTIC_fineness ZHAPTIC_roughness ZHAPTIC_adhesion ZHAPTIC_hardness ZHAPTIC_elasticity 
    ZHAPTIC_warmness ZHAPTIC_dryness ZHAPTIC_valence ZHAPTIC_arousal ZHAPTIC_attraction ZHAPTIC_value 
    ZHAPTIC_quality ZHAPTIC_durability ZHAPTIC_cleanability BY surface
  /ES=OVERALL
  /STATISTICS DESCRIPTIVES HOMOGENEITY WELCH 
  /MISSING ANALYSIS
  /CRITERIA=CILEVEL(0.95).

ONEWAY ZHAPTIC_fineness ZHAPTIC_roughness ZHAPTIC_adhesion ZHAPTIC_hardness ZHAPTIC_elasticity 
    ZHAPTIC_warmness ZHAPTIC_dryness ZHAPTIC_valence ZHAPTIC_arousal ZHAPTIC_attraction ZHAPTIC_value 
    ZHAPTIC_quality ZHAPTIC_durability ZHAPTIC_cleanability BY polymer_2
  /ES=OVERALL
  /STATISTICS DESCRIPTIVES HOMOGENEITY WELCH 
  /MISSING ANALYSIS
  /CRITERIA=CILEVEL(0.95).


Graphs
    
* Chart Builder.
GGRAPH
  /GRAPHDATASET NAME="graphdataset" VARIABLES=material MEAN(PP_C) MEAN(AP_C) MEAN(PQ_C) MEAN(PD_C) 
    MISSING=LISTWISE REPORTMISSING=NO
    TRANSFORM=VARSTOCASES(SUMMARY="#SUMMARY" INDEX="#INDEX")
  /GRAPHSPEC SOURCE=INLINE.
BEGIN GPL
  DATA: SUMMARY=col(source(s), name("#SUMMARY"))
  DATA: INDEX=col(source(s), name("#INDEX"), unit.category())
  COORD: rect(dim(1,2), cluster(3,0))
  GUIDE: axis(dim(3), label("material"))
  GUIDE: axis(dim(2), label("Mean"))
  GUIDE: legend(aesthetic(aesthetic.color.interior), label(""))
  GUIDE: text.title(label("Clustered Bar Mean of PP_C, Mean of AP_C, Mean of PQ_C, Mean of ",
    "PD_C..."))
  SCALE: linear(dim(2), include(0))
  SCALE: cat(aesthetic(aesthetic.color.interior), include(
"0", "1", "2", "3"))
  SCALE: cat(dim(1), include(
"0", "1", "2", "3"))
  ELEMENT: interval(position(INDEX*SUMMARY*material), color.interior(INDEX), 
    shape.interior(shape.square))
END GPL.

* Chart Builder.
GGRAPH
  /GRAPHDATASET NAME="graphdataset" VARIABLES=surface MEAN(PP_C) MEAN(AP_C) MEAN(PQ_C) MEAN(PD_C) 
    MISSING=LISTWISE REPORTMISSING=NO
    TRANSFORM=VARSTOCASES(SUMMARY="#SUMMARY" INDEX="#INDEX")
  /GRAPHSPEC SOURCE=INLINE.
BEGIN GPL
  DATA: SUMMARY=col(source(s), name("#SUMMARY"))
  DATA: INDEX=col(source(s), name("#INDEX"), unit.category())
  COORD: rect(dim(1,2), cluster(3,0))
  GUIDE: axis(dim(3), label("ero 0; laser 1"))
  GUIDE: axis(dim(2), label("Mean"))
  GUIDE: legend(aesthetic(aesthetic.color.interior), label(""))
  GUIDE: text.title(label("Clustered Bar Mean of PP_C, Mean of AP_C, Mean of PQ_C, Mean of ",
    "PD_C..."))
  SCALE: linear(dim(2), include(0))
  SCALE: cat(aesthetic(aesthetic.color.interior), include(
"0", "1", "2", "3"))
  SCALE: cat(dim(1), include(
"0", "1", "2", "3"))
  ELEMENT: interval(position(INDEX*SUMMARY*surface), color.interior(INDEX), 
    shape.interior(shape.square))
END GPL.

* Chart Builder.
GGRAPH
  /GRAPHDATASET NAME="graphdataset" VARIABLES=polymer MEAN(PP_C) MEAN(AP_C) MEAN(PQ_C) MEAN(PD_C) 
    MISSING=LISTWISE REPORTMISSING=NO
    TRANSFORM=VARSTOCASES(SUMMARY="#SUMMARY" INDEX="#INDEX")
  /GRAPHSPEC SOURCE=INLINE.
BEGIN GPL
  DATA: SUMMARY=col(source(s), name("#SUMMARY"))
  DATA: INDEX=col(source(s), name("#INDEX"), unit.category())
  COORD: rect(dim(1,2), cluster(3,0))
  GUIDE: axis(dim(3), label("polymer"))
  GUIDE: axis(dim(2), label("Mean"))
  GUIDE: legend(aesthetic(aesthetic.color.interior), label(""))
  GUIDE: text.title(label("Clustered Bar Mean of PP_C, Mean of AP_C, Mean of PQ_C, Mean of ",
    "PD_C..."))
  SCALE: linear(dim(2), include(0))
  SCALE: cat(aesthetic(aesthetic.color.interior), include(
"0", "1", "2", "3"))
  SCALE: cat(dim(1), include(
"0", "1", "2", "3"))
  ELEMENT: interval(position(INDEX*SUMMARY*polymer), color.interior(INDEX), 
    shape.interior(shape.square))
END GPL.


Correlation

DATASET ACTIVATE DataSet2.

NONPAR CORR
  /VARIABLES=ZHAPTIC_roughness ZSa
  /PRINT=SPEARMAN TWOTAIL NOSIG FULL
  /MISSING=PAIRWISE.

NONPAR CORR
  /VARIABLES=ZDensity Zb_thermaleffusivity
  /PRINT=SPEARMAN TWOTAIL NOSIG FULL
  /MISSING=PAIRWISE.